home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / m / maxonc++3.dms / maxonc++3.adf / DEMOS / ASSEMBLER / filer.s < prev    next >
Text File  |  1992-04-06  |  4KB  |  145 lines
  1. ;/*Die Datenstruktur und die einstellbaren Flags wurden vom
  2. ;FileRequester Aufruf der REQUESTER.Library übernommen, so daß
  3. ;eine Umstellung auf den RCT-File-Requester sehr einfach gemacht
  4. ;werden kann.*/
  5.  
  6. * Definitionen für RCT-FileRequester */
  7.  
  8. * DSIZE ist die Definition für die Größe des Pfadnamen-Arrays.        */
  9. * FCHARS steht für die Größe des Dateinamen-Arrays.                        */
  10. * WILDLENGTH ist die länge des Stings für den Hide- und Showtext.    */
  11.  
  12. * Durch folgende Flags kann das Aussehen und die Art des Requesters */
  13. * verändert werden:                                                                 */
  14.  
  15. * FRQCACHINGM      Wenn das eingelesene Verzeichnis
  16. *         zwischengespeichert und beim nächsten Aufruf
  17. *         des Requesters wieder aufgerufen werden soll */
  18. * FRQABSOLUTEXYM  in den Felder WindowLeftEdge, WindowTopEdge
  19. *         werden Koordianten angegeben anderenfalls wird
  20. *         der Requester zentiert */
  21. * FRQCACHEPURGEM  Das zwischengespeicherte Verzeichnis wird
  22. *         neu geladen wenn sich das Datum des Verzeichnisses geändert hat */
  23. * FRQNOHALFCACHEM Die eingelesenen Dateien werden nicht bis zum
  24. *         nächsten Aufruf zwischengespeichert, wenn sie nicht vollständig
  25. *         eingelesen werden konnten */
  26. * FRQNOSORTM         Die Dateinamen sollen unsortiert angezeigt
  27. *                         werden */
  28. * FRQNODRAGM         Der Requester kann nciht verschoben oder in
  29. *             den Hinter-/Vordergrund geholt werden */
  30. * FRQSAVINGM         Im "OK-Gadget" wird der Text "SAVE" angezeigt */
  31. * FRQLOADINGM      Im "OK-Gadget" wird der text "LOAD" angezeigt */
  32. * FRQNODEPTHM      Das Fenster soll zwar verschiebbar aber nicht
  33. *         in der Vorder-/Hintergrund stellbar sein. */
  34.  
  35.  
  36. ;ifndef    DSIZE
  37. ;define    DSIZE 130
  38. ;define    FCHARS    30
  39. ;endif    /* ifndef DSIZE */
  40.  
  41. ;define    WILDLENGTH    30
  42.  
  43. ;define    FRQSHOWINFOB      0
  44. ;define    FRQEXTSELECTB      1
  45. ;define    FRQCACHINGB       2
  46. ;define    FRQGETFONTSB      3
  47. ;define    FRQINFOGADGETB   4
  48. ;define    FRQHIDEWILDSB      5
  49. ;define    FRQABSOLUTEXYB   6
  50. ;define    FRQCACHEPURGEB   7
  51. ;define    FRQNOHALFCACHEB  8
  52. ;define    FRQNOSORTB          9
  53. ;define    FRQNODRAGB         10
  54. ;define    FRQSAVINGB         11
  55. ;define    FRQLOADINGB      12
  56. ;define    FRQDIRONLYB      13
  57. ;define    FRQNODEPTHB      14
  58.  
  59. ;define    FRQSHOWINFOM    (1<<FRQSHOWINFOB)
  60. ;define    FRQEXTSELECTM    (1<<FRQEXTSELECTB)
  61. ;define    FRQCACHINGM     (1<<FRQCACHINGB)
  62. ;define    FRQGETFONTSM    (1<<FRQGETFONTSB)
  63. ;define    FRQINFOGADGETM (1<<FRQINFOGADGETB)
  64. ;define    FRQHIDEWILDSM    (1<<FRQHIDEWILDSB)
  65. ;define    FRQABSOLUTEXYM (1<<FRQABSOLUTEXYB)
  66. ;define    FRQCACHEPURGEM (1<<FRQCACHEPURGEB)
  67. ;define    FRQNOHALFCACHEM    (1<<FRQNOHALFCACHEB)
  68. ;define    FRQNOSORTM        (1<<FRQNOSORTB)
  69. ;define    FRQNODRAGM        (1<<FRQNODRAGB)
  70. ;define    FRQSAVINGM        (1<<FRQSAVINGB)
  71. ;define    FRQLOADINGM     (1<<FRQLOADINGB)
  72. ;define    FRQDIRONLYM     (1<<FRQDIRONLYB)
  73. ;define    FRQNODEPTHM     (1<<FRQNODEPTHB)
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.     bra    main
  82.     include "rctdef.asm"
  83. main:
  84.     bsr    openrct
  85.     tst.l    d0
  86.     beq    error
  87.     lea    filerdef,a0
  88.     jsr    filer
  89.     bsr    closerct
  90. error:
  91.     rts
  92. filerdef:
  93.  
  94.     dc.w    0                                             
  95.     dc.l    filertitle                                             
  96.     dc.l    filerpath
  97.     dc.l    filername
  98.     dc.l    pathname
  99. filerwindow:
  100.     dc.l    0                                
  101.     dc.w    0,0,0,0
  102.     dc.l    %001000000000000 ;Flags (Load ein)
  103.                                              
  104.     dc.w    0,0,0,0,0,0,0,0,0,0,0,0,0
  105.     ds.w    18
  106.     ds.b    12
  107.  
  108.     dc.w    100,0    ;left top
  109.     dc.w    0,0
  110.     dc.l    0
  111.  
  112. hide:
  113.     dc.b    ".info"    ;Nicht anzeigen                                             
  114.     ds.b    32-5
  115. show:
  116.     dc.b    "#?"
  117.     ds.b    32-2    ;anzeigen Wildcards                                             
  118.  
  119.       dc.w    0     ;FileBufferPos;         /* Werte für Stringgadgets */
  120.       dc.w    0    ;FileDispPos;
  121.       dc.w    0    ;DirBufferPos;
  122.       dc.w    0    ;DirDispPos;
  123.       dc.w    0    ;HideBufferPos;
  124.       dc.w    0    ;HideDispPos;
  125.       dc.w    0    ;ShowBufferPos;
  126.       dc.w    0    ;ShowDispPos;
  127.  
  128.  
  129.     dc.l    0,0,0,0,0
  130.     dc.w    0,0,0,0
  131.  
  132.  
  133. filertitle:
  134.     dc.b    "RCT-Dateiauswahlfenster",0
  135.     even
  136. filerpath:
  137.     dc.b    "SYS:"
  138.     ds.b    130-4
  139.     even
  140. filername:
  141.     ds.b    30
  142. pathname:
  143.     ds.b    160
  144.  
  145.